home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / artlist1.for < prev    next >
Text File  |  1993-06-30  |  2KB  |  51 lines

  1. ^12
  2. ^BArtikelliste ^b^12
  3. /
  4. !#VORHERIGE_GRUPPE:= "' '"
  5.                                                             Seite: #SEITE:8:0
  6.                                                             Stand: #DATUM
  7. ───────────────────────────────────────────────────────────────────────────
  8. ArtikelNr. Bezeichnung                    Einheit     Netto VK    Brutto VK
  9. //34567890 123456789012345678901234567890  12345   12345678901  12345678901
  10. ───────────────────────────────────────────────────────────────────────────
  11. !LISTE:57
  12. !WENN #Gruppe <> ' ' .AND. #Vorherige_Gruppe <> #Gruppe
  13.  
  14. #Gruppentitel  #Gruppe      // Ausgabe der Gruppe bei entsprechender Sortierung
  15.  
  16. !ENDEWENN
  17. #ART_NR    #ART_NAME:30                    #Einh   #NETTOVK:11  #BRUTTOVK:11
  18.            #Art_text:30
  19. /
  20. !#Anz:= #Anz+ 1          // Zähle die Anzahl der gedruckten Artikel...
  21. !#vorherige_Gruppe:= #Gruppe
  22. /
  23. !ENDELISTE
  24. /
  25. !#vorherige_Gruppe:= #Gruppe
  26. !WENN #LetzteSeite
  27. ───────────────────────────────────────────────────────────────────────────
  28. Anzahl der aufgelisteten Artikel: #ANZ:8:0
  29. !ENDE WENN
  30. !SEITENAUSWURF
  31. !FORMULARENDE
  32.  
  33.  
  34.  
  35. !PLATZHALTER
  36.   #ART_NR     ,      art->Art_nr
  37.   #ART_NAME   ,      art->Art_name            // Kurzbezeichnung
  38.   #ART_TEXT   ,      art->art_text            // Ausführlicher Text
  39.   #ART_BEMERKUNG ,   Trim( art->BEMERKUNG)
  40.   #Einh,             art->MengenEinh
  41.   #BRUTTOVK ,        art->BruttoVerk
  42.   #NettoVK,          art->NettoVerk
  43.   #EKPREIS,          art->einkaufpr
  44.   #BESTAND,          art->bestand
  45.   #Anz,              nAnz                     // nur zum Zählen der Artikel
  46.  
  47.   #GRUPPE,           IF( 'Gruppe'$ cArtSort, art->Art_Gruppe, '' )
  48.   #GRUPPENTITEL,     IF( 'Gruppe'$ cArtSort, 'GRUPPE: ', '')
  49.   #VORHERIGE_GRUPPE, vorhergruppe
  50. !ENDE PLATZHALTER
  51.